home *** CD-ROM | disk | FTP | other *** search
/ Delphi Informant Complete 1995 - 2000 / Delphi Informant Complete 1995 to 2000.iso / Delphi Informant Magazine Complete Works SOURCE CODE 1995.rar / 1995 / JUN / MO9506 / navlite.pas < prev    next >
Pascal/Delphi Source File  |  1995-04-19  |  1KB  |  41 lines
  1. unit Navlite;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, ExtCtrls, DBCtrls;
  8.  
  9. type
  10.   TDBNavLite = class(TDBNavigator)            { Declare which class to inherit from }
  11.   private
  12.     { Private declarations  - visible only to this class }
  13.   protected
  14.     { Protected declarations - visible to this class and its decendants }
  15.   public
  16.     { Public declarations - visible to all classes }
  17.     constructor Create(AOwner: TComponent); override;    { Polymorphism to produce a new effect }
  18.   published
  19.     { Published declarations - visible to all classes, and displayed in the Delphi Object Inspector }
  20.   end;
  21.  
  22. procedure Register;
  23.  
  24. implementation
  25.  
  26. constructor TDBNavLite.Create(AOwner: TComponent);
  27. begin
  28.   inherited Create(AOwner);                { Call the parent classÆ constructor , then
  29.                                set new default values for properties }
  30.   VisibleButtons := [nbFirst,nbPrior,nbNext,nbLast,nbRefresh] ;
  31.   ShowHint := true;
  32. end;
  33.  
  34. procedure Register;
  35. begin
  36.   RegisterComponents('Data Controls', [TDBNavLite]);
  37. end;
  38.  
  39. end.
  40.  
  41.